object Form1: TForm1
  Left = 223
  Top = 167
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = #20215#26684#29260#25171#21360#25968#37327#32479#35745
  ClientHeight = 603
  ClientWidth = 858
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  KeyPreview = True
  OldCreateOrder = False
  Position = poScreenCenter
  OnCreate = FormCreate
  OnKeyDown = FormKeyDown
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 564
    Width = 858
    Height = 39
    Align = alBottom
    ParentBackground = False
    TabOrder = 0
    object Button2: TButton
      Left = 394
      Top = 6
      Width = 75
      Height = 25
      Caption = #36864#20986
      TabOrder = 0
      OnClick = Button2Click
    end
    object Button8: TButton
      Left = 16
      Top = 8
      Width = 75
      Height = 25
      Caption = #38145#23450
      TabOrder = 1
      OnClick = Button8Click
    end
  end
  object PageControl1: TPageControl
    Left = 0
    Top = 0
    Width = 858
    Height = 564
    ActivePage = TabSheet1
    Align = alClient
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 1
    OnChange = PageControl1Change
    object TabSheet1: TTabSheet
      Caption = #25968#25454#24405#20837
      object GroupBox1: TGroupBox
        Left = 424
        Top = 8
        Width = 217
        Height = 201
        Caption = #23703#32452#20449#24687#22686#21152
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -16
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentFont = False
        TabOrder = 0
        object Label12: TLabel
          Left = 4
          Top = 30
          Width = 48
          Height = 16
          Caption = #27004#23618#65306
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -16
          Font.Name = #23435#20307
          Font.Style = []
          ParentFont = False
        end
        object Label13: TLabel
          Left = 4
          Top = 96
          Width = 80
          Height = 16
          Caption = #23703#32452#21517#31216#65306
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -16
          Font.Name = #23435#20307
          Font.Style = []
          ParentFont = False
        end
        object Label14: TLabel
          Left = 4
          Top = 62
          Width = 48
          Height = 16
          Caption = #23703#30721#65306
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -16
          Font.Name = #23435#20307
          Font.Style = []
          ParentFont = False
        end
        object Label15: TLabel
          Left = 151
          Top = 29
          Width = 49
          Height = 19
          AutoSize = False
          Caption = '0'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -16
          Font.Name = 'Tahoma'
          Font.Style = []
          ParentFont = False
        end
        object lbl4: TLabel
          Left = 28
          Top = 126
          Width = 48
          Height = 16
          Caption = #25340#38899#65306
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -16
          Font.Name = #23435#20307
          Font.Style = []
          ParentFont = False
        end
        object ComboBox1: TComboBox
          Left = 80
          Top = 26
          Width = 97
          Height = 24
          Style = csDropDownList
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -16
          Font.Name = #23435#20307
          Font.Style = []
          ImeName = #20013#25991' ('#31616#20307') - '#32654#24335#38190#30424
          ItemHeight = 16
          ParentFont = False
          TabOrder = 0
          OnSelect = ComboBox1Select
          Items.Strings = (
            #19968#27004#21830#22330
            #20108#27004#21830#22330
            #19977#27004#21830#22330
            #22235#27004#21830#22330
            #20116#27004#21830#22330)
        end
        object Edt_g_name: TEdit
          Left = 80
          Top = 92
          Width = 121
          Height = 24
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -16
          Font.Name = #23435#20307
          Font.Style = []
          ImeName = #20013#25991' ('#31616#20307') - '#32654#24335#38190#30424
          ParentFont = False
          TabOrder = 1
        end
        object EDt_g_code: TEdit
          Left = 80
          Top = 58
          Width = 81
          Height = 24
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -16
          Font.Name = #23435#20307
          Font.Style = []
          ImeName = #20013#25991' ('#31616#20307') - '#32654#24335#38190#30424
          ParentFont = False
          TabOrder = 2
        end
        object Button4: TButton
          Left = 24
          Top = 159
          Width = 60
          Height = 28
          Caption = #22686#21152
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -16
          Font.Name = #23435#20307
          Font.Style = []
          ParentFont = False
          TabOrder = 3
          OnClick = Button4Click
        end
        object Button5: TButton
          Left = 112
          Top = 159
          Width = 80
          Height = 28
          Caption = #26174#31034#20840#37096
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -16
          Font.Name = #23435#20307
          Font.Style = []
          ParentFont = False
          TabOrder = 4
          OnClick = Button5Click
        end
        object Button6: TButton
          Left = 176
          Top = 56
          Width = 33
          Height = 19
          Caption = #36807#28388
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = #23435#20307
          Font.Style = []
          ParentFont = False
          TabOrder = 5
          Visible = False
          OnClick = Button6Click
        end
        object edt_pym: TEdit
          Left = 80
          Top = 120
          Width = 121
          Height = 24
          CharCase = ecUpperCase
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -16
          Font.Name = #23435#20307
          Font.Style = []
          ImeName = #20013#25991' ('#31616#20307') - '#32654#24335#38190#30424
          ParentFont = False
          TabOrder = 6
        end
      end
      object GroupBox2: TGroupBox
        Left = 0
        Top = 8
        Width = 417
        Height = 409
        Caption = #20215#26684#29260#25171#21360#25968#37327#24405#20837
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -20
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        TabOrder = 1
        object Label1: TLabel
          Left = 16
          Top = 74
          Width = 63
          Height = 21
          Caption = #27004#23618#65306
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -21
          Font.Name = #23435#20307
          Font.Style = []
          ParentFont = False
        end
        object Label5: TLabel
          Left = 192
          Top = 74
          Width = 10
          Height = 23
          Caption = '0'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -19
          Font.Name = 'Tahoma'
          Font.Style = []
          ParentFont = False
        end
        object Label4: TLabel
          Left = 16
          Top = 34
          Width = 63
          Height = 21
          Caption = #26085#26399#65306
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -21
          Font.Name = #23435#20307
          Font.Style = []
          ParentFont = False
        end
        object Label2: TLabel
          Left = 16
          Top = 116
          Width = 63
          Height = 21
          Caption = #23703#32452#65306
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -21
          Font.Name = #23435#20307
          Font.Style = []
          ParentFont = False
        end
        object Label11: TLabel
          Left = 240
          Top = 116
          Width = 63
          Height = 21
          Caption = #23703#30721#65306
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -21
          Font.Name = #23435#20307
          Font.Style = []
          ParentFont = False
        end
        object lbl_G_code: TLabel
          Left = 304
          Top = 116
          Width = 11
          Height = 21
          Caption = '0'
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -21
          Font.Name = #23435#20307
          Font.Style = []
          ParentFont = False
        end
        object Label9: TLabel
          Left = 8
          Top = 157
          Width = 105
          Height = 21
          Caption = #20215#31614#31867#22411#65306
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -21
          Font.Name = #23435#20307
          Font.Style = []
          ParentFont = False
        end
        object Label3: TLabel
          Left = 16
          Top = 197
          Width = 63
          Height = 21
          Caption = #25968#37327#65306
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -21
          Font.Name = #23435#20307
          Font.Style = []
          ParentFont = False
        end
        object Label10: TLabel
          Left = 16
          Top = 237
          Width = 63
          Height = 21
          Caption = #21333#20215#65306
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -21
          Font.Name = #23435#20307
          Font.Style = []
          ParentFont = False
        end
        object Shape2: TShape
          Left = 189
          Top = 2
          Width = 9
          Height = 17
          Brush.Color = clRed
          Shape = stCircle
        end
        object cbb_floor: TComboBox
          Left = 80
          Top = 70
          Width = 105
          Height = 29
          Style = csDropDownList
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -21
          Font.Name = #23435#20307
          Font.Style = []
          ImeName = #20013#25991' ('#31616#20307') - '#32654#24335#38190#30424
          ItemHeight = 21
          ParentFont = False
          TabOrder = 0
          OnSelect = cmbSelect
          Items.Strings = (
            #20840#37096
            #19968#27004#21830#22330
            #20108#27004#21830#22330
            #19977#27004#21830#22330
            #22235#27004#21830#22330
            #20116#27004#21830#22330)
        end
        object DateTimePicker1: TDateTimePicker
          Left = 80
          Top = 29
          Width = 145
          Height = 29
          BevelKind = bkFlat
          CalColors.TitleBackColor = clHighlight
          CalColors.TrailingTextColor = clSilver
          Date = 39959.679186921300000000
          Time = 39959.679186921300000000
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -21
          Font.Name = #23435#20307
          Font.Style = []
          ImeName = #20013#25991' ('#31616#20307') - '#32654#24335#38190#30424
          ParentFont = False
          TabOrder = 1
          OnKeyPress = DateTimePicker1KeyPress
        end
        object CBB_GZ: TComboBox
          Left = 80
          Top = 112
          Width = 161
          Height = 27
          Style = csDropDownList
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -19
          Font.Name = #23435#20307
          Font.Style = []
          ImeName = #20013#25991' ('#31616#20307') - '#32654#24335#38190#30424
          ItemHeight = 19
          ParentFont = False
          TabOrder = 2
          OnDropDown = CBB_GZDropDown
          OnKeyPress = CBB_GZKeyPress
          OnSelect = CBB_GZSelect
        end
        object CBB_JQLX: TComboBox
          Left = 104
          Top = 152
          Width = 305
          Height = 27
          Style = csDropDownList
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -19
          Font.Name = #23435#20307
          Font.Style = []
          ImeName = #20013#25991' ('#31616#20307') - '#32654#24335#38190#30424
          ItemHeight = 19
          ParentFont = False
          TabOrder = 3
          OnDropDown = CBB_JQLXDropDown
          OnKeyPress = CBB_JQLXKeyPress
          OnSelect = CBB_JQLXSelect
        end
        object edt_sl: TEdit
          Left = 80
          Top = 192
          Width = 113
          Height = 29
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -21
          Font.Name = #23435#20307
          Font.Style = []
          ImeName = #20013#25991' ('#31616#20307') - '#32654#24335#38190#30424
          ParentFont = False
          TabOrder = 4
          Text = '0'
          OnClick = edt_slClick
          OnKeyPress = edt_slKeyPress
        end
        object edt_DJ: TEdit
          Left = 80
          Top = 232
          Width = 145
          Height = 29
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -21
          Font.Name = #23435#20307
          Font.Style = []
          ImeName = #20013#25991' ('#31616#20307') - '#32654#24335#38190#30424
          ParentFont = False
          TabOrder = 5
          Text = '0'
        end
        object Button1: TButton
          Left = 136
          Top = 318
          Width = 75
          Height = 28
          Caption = #22686#21152
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -20
          Font.Name = 'Tahoma'
          Font.Style = []
          ParentFont = False
          TabOrder = 6
          OnClick = Button1Click
        end
      end
      object Panel3: TPanel
        Left = 424
        Top = 216
        Width = 425
        Height = 201
        Caption = 'Panel3'
        ParentBackground = False
        TabOrder = 2
        object DBGrid1: TDBGrid
          Left = 1
          Top = 1
          Width = 423
          Height = 199
          Align = alClient
          DataSource = DataSource1
          ImeName = #20013#25991' ('#31616#20307') - '#32654#24335#38190#30424
          TabOrder = 0
          TitleFont.Charset = ANSI_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -12
          TitleFont.Name = #23435#20307
          TitleFont.Style = []
          Columns = <
            item
              Expanded = False
              FieldName = 'LC_CODE'
              Title.Caption = #27004#23618#21495
              Width = 40
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'LC_NAME'
              Title.Caption = #27004#23618#21517#31216
              Width = 59
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'G_CODE'
              Title.Caption = #21512#21516#21495
              Width = 60
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'G_NAME'
              Title.Caption = #23703#32452#21517#31216
              Width = 102
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'G_PYM'
              Title.Caption = #25340#38899
              Width = 80
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'G_ID'
              Title.Caption = #23703#30721
              Width = 50
              Visible = True
            end>
        end
      end
      object GroupBox3: TGroupBox
        Left = 648
        Top = 8
        Width = 201
        Height = 201
        Caption = #20215#31614#21333#20215#23450#20041
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -14
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        TabOrder = 3
        object DBGrid2: TDBGrid
          Left = 2
          Top = 16
          Width = 197
          Height = 183
          Align = alClient
          DataSource = DS_JQLX
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = #23435#20307
          Font.Style = []
          ImeName = #20013#25991' ('#31616#20307') - '#32654#24335#38190#30424
          ParentFont = False
          TabOrder = 0
          TitleFont.Charset = ANSI_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -16
          TitleFont.Name = #23435#20307
          TitleFont.Style = []
          Columns = <
            item
              Expanded = False
              FieldName = 'JQLX_NAME'
              Title.Caption = #20215#31614#31867#22411
              Width = 194
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'JQDJ'
              Title.Caption = #21333#20215
              Width = 51
              Visible = True
            end>
        end
      end
      object grp1: TGroupBox
        Left = 0
        Top = 422
        Width = 850
        Height = 115
        Align = alBottom
        Caption = #26356#26032#19987#26588#36164#26009
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -16
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        TabOrder = 4
        DesignSize = (
          850
          115)
        object lbl1: TLabel
          Left = 129
          Top = 24
          Width = 64
          Height = 16
          Caption = #21512#21516#21495#65306
        end
        object lbl2: TLabel
          Left = 8
          Top = 88
          Width = 96
          Height = 16
          Caption = #26032#19987#26588#21517#31216#65306
          Font.Charset = ANSI_CHARSET
          Font.Color = clBlack
          Font.Height = -16
          Font.Name = #23435#20307
          Font.Style = []
          ParentFont = False
        end
        object lbl3: TLabel
          Left = 8
          Top = 24
          Width = 48
          Height = 16
          Caption = #23703#30721#65306
          Font.Charset = ANSI_CHARSET
          Font.Color = clBlue
          Font.Height = -16
          Font.Name = #23435#20307
          Font.Style = []
          ParentFont = False
        end
        object lbl_GID: TLabel
          Left = 48
          Top = 25
          Width = 8
          Height = 16
          Caption = '0'
          Font.Charset = ANSI_CHARSET
          Font.Color = clBlue
          Font.Height = -16
          Font.Name = #23435#20307
          Font.Style = []
          ParentFont = False
        end
        object lbl_old_gzmc: TLabel
          Left = 98
          Top = 54
          Width = 746
          Height = 16
          Anchors = [akLeft, akBottom]
          AutoSize = False
          BiDiMode = bdLeftToRight
          Caption = '0'
          Font.Charset = ANSI_CHARSET
          Font.Color = clBlue
          Font.Height = -14
          Font.Name = #23435#20307
          Font.Style = [fsBold]
          ParentBiDiMode = False
          ParentFont = False
          ShowAccelChar = False
          Transparent = False
        end
        object lbl5: TLabel
          Left = 8
          Top = 52
          Width = 86
          Height = 20
          AutoSize = False
          Caption = #21407#19987#26588#21517#31216#65306
          Font.Charset = ANSI_CHARSET
          Font.Color = clBlue
          Font.Height = -16
          Font.Name = #23435#20307
          Font.Style = []
          ParentFont = False
        end
        object Label16: TLabel
          Left = 320
          Top = 48
          Width = 56
          Height = 16
          Caption = 'Label16'
          Visible = False
        end
        object edt_hth: TEdit
          Left = 185
          Top = 21
          Width = 100
          Height = 24
          BiDiMode = bdLeftToRight
          ImeName = #20013#25991' ('#31616#20307') - '#32654#24335#38190#30424
          ParentBiDiMode = False
          TabOrder = 0
          OnClick = edt_hthClick
        end
        object edt_gzmc: TEdit
          Left = 98
          Top = 82
          Width = 747
          Height = 28
          AutoSize = False
          Font.Charset = ANSI_CHARSET
          Font.Color = clBlack
          Font.Height = -16
          Font.Name = #23435#20307
          Font.Style = []
          ImeName = #20013#25991' ('#31616#20307') - '#32654#24335#38190#30424
          ParentFont = False
          TabOrder = 1
        end
        object btn1: TButton
          Left = 392
          Top = 21
          Width = 75
          Height = 25
          Caption = #26356#26032
          TabOrder = 2
          OnClick = btn1Click
        end
        object edt_hth2: TEdit
          Left = 286
          Top = 21
          Width = 100
          Height = 24
          ImeName = #20013#25991' ('#31616#20307') - '#32654#24335#38190#30424
          TabOrder = 3
          OnClick = edt_hth2Click
        end
      end
    end
    object TabSheet2: TTabSheet
      Caption = #22686#21152#26126#32454
      ImageIndex = 1
      object DBGridEh1: TDBGridEh
        Left = 0
        Top = 17
        Width = 850
        Height = 520
        Align = alClient
        DataSource = DS1
        ShowSerialNo = False
        Flat = False
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        FooterColor = clWindow
        FooterFont.Charset = DEFAULT_CHARSET
        FooterFont.Color = clWindowText
        FooterFont.Height = -11
        FooterFont.Name = 'Tahoma'
        FooterFont.Style = []
        ImeName = #20013#25991' ('#31616#20307') - '#32654#24335#38190#30424
        OptionsEh = [dghFixed3D, dghHighlightFocus, dghClearSelection, dghAutoSortMarking, dghDialogFind]
        ParentFont = False
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'Tahoma'
        TitleFont.Style = []
        Columns = <
          item
            EditButtons = <>
            FieldName = 'DYRQ'
            Footers = <>
            Title.Caption = #25171#21360#26085#26399
            Width = 83
          end
          item
            EditButtons = <>
            FieldName = 'G_CODE'
            Footers = <>
            Title.Caption = #23703#30721
            Width = 87
          end
          item
            EditButtons = <>
            FieldName = 'G_NAME'
            Footers = <>
            Title.Caption = #23703#21517
            Width = 115
          end
          item
            EditButtons = <>
            FieldName = 'STYLE'
            Footers = <>
            Title.Caption = #20215#31614#31867#22411
            Width = 226
          end
          item
            EditButtons = <>
            FieldName = 'SL'
            Footers = <>
            Title.Caption = #25968#37327
          end
          item
            EditButtons = <>
            FieldName = 'DJ'
            Footers = <>
            Title.Caption = #21333#20215
            Width = 95
          end
          item
            EditButtons = <>
            FieldName = 'ID'
            Footers = <>
            Width = 241
          end>
      end
      object Panel4: TPanel
        Left = 0
        Top = 0
        Width = 850
        Height = 17
        Align = alTop
        ParentBackground = False
        TabOrder = 1
        object Button7: TButton
          Left = 186
          Top = 0
          Width = 114
          Height = 17
          Caption = #23703#21517#25490#24207
          TabOrder = 0
          OnClick = Button7Click
        end
      end
    end
    object TabSheet3: TTabSheet
      Caption = #27719#24635#26597#35810
      ImageIndex = 2
      object Panel2: TPanel
        Left = 0
        Top = 453
        Width = 850
        Height = 84
        Align = alBottom
        ParentBackground = False
        TabOrder = 0
        object Label6: TLabel
          Left = 8
          Top = 52
          Width = 63
          Height = 21
          Caption = #27004#23618#65306
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -21
          Font.Name = #23435#20307
          Font.Style = []
          ParentFont = False
        end
        object Label7: TLabel
          Left = 208
          Top = 52
          Width = 63
          Height = 21
          Caption = #23703#32452#65306
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -21
          Font.Name = #23435#20307
          Font.Style = []
          ParentFont = False
        end
        object Label8: TLabel
          Left = 8
          Top = 11
          Width = 63
          Height = 21
          Caption = #26085#26399#65306
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -21
          Font.Name = #23435#20307
          Font.Style = []
          ParentFont = False
        end
        object Shape1: TShape
          Left = 227
          Top = 20
          Width = 33
          Height = 3
          Brush.Color = clBlack
        end
        object Button3: TButton
          Left = 744
          Top = 40
          Width = 97
          Height = 33
          Caption = #26597#35810
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -21
          Font.Name = #23435#20307
          Font.Style = []
          ParentFont = False
          TabOrder = 0
          OnClick = Button3Click
        end
        object ComboBox3: TComboBox
          Left = 72
          Top = 48
          Width = 121
          Height = 29
          Style = csDropDownList
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -21
          Font.Name = #23435#20307
          Font.Style = []
          ImeName = #20013#25991' ('#31616#20307') - '#32654#24335#38190#30424
          ItemHeight = 21
          ParentFont = False
          TabOrder = 1
          OnSelect = ComboBox3Select
          Items.Strings = (
            #20840#37096
            #19968#27004#21830#22330
            #20108#27004#21830#22330
            #19977#27004#21830#22330
            #22235#27004#21830#22330
            #20116#27004#21830#22330)
        end
        object ComboBox4: TComboBox
          Left = 272
          Top = 48
          Width = 145
          Height = 29
          Style = csDropDownList
          Enabled = False
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -21
          Font.Name = #23435#20307
          Font.Style = []
          ImeName = #20013#25991' ('#31616#20307') - '#32654#24335#38190#30424
          ItemHeight = 0
          ParentFont = False
          TabOrder = 2
          OnSelect = ComboBox4Select
        end
        object DateTimePicker2: TDateTimePicker
          Left = 72
          Top = 7
          Width = 145
          Height = 29
          CalColors.TitleBackColor = clHighlight
          CalColors.TrailingTextColor = clSilver
          Date = 39959.679186921300000000
          Time = 39959.679186921300000000
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -21
          Font.Name = #23435#20307
          Font.Style = []
          ImeName = #20013#25991' ('#31616#20307') - '#32654#24335#38190#30424
          ParentFont = False
          TabOrder = 3
        end
        object DateTimePicker3: TDateTimePicker
          Left = 272
          Top = 7
          Width = 145
          Height = 29
          CalColors.TitleBackColor = clHighlight
          CalColors.TrailingTextColor = clSilver
          Date = 39959.679186921300000000
          Time = 39959.679186921300000000
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -21
          Font.Name = #23435#20307
          Font.Style = []
          ImeName = #20013#25991' ('#31616#20307') - '#32654#24335#38190#30424
          ParentFont = False
          TabOrder = 4
        end
        object RadioButton1: TRadioButton
          Left = 440
          Top = 8
          Width = 89
          Height = 30
          Caption = #25353#26085#26399
          Checked = True
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -19
          Font.Name = 'Tahoma'
          Font.Style = []
          ParentFont = False
          TabOrder = 5
          TabStop = True
          OnClick = RadioButton1Click
        end
        object RadioButton3: TRadioButton
          Left = 536
          Top = 8
          Width = 89
          Height = 30
          Caption = #25353#19987#26588
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -19
          Font.Name = 'Tahoma'
          Font.Style = []
          ParentFont = False
          TabOrder = 6
          OnClick = RadioButton3Click
        end
        object ComboBox2: TComboBox
          Left = 448
          Top = 40
          Width = 161
          Height = 27
          Style = csDropDownList
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -19
          Font.Name = #23435#20307
          Font.Style = []
          ImeName = #20013#25991' ('#31616#20307') - '#32654#24335#38190#30424
          ItemHeight = 19
          ItemIndex = 1
          ParentFont = False
          TabOrder = 7
          Text = #27719#24635
          OnSelect = ComboBox2Select
          Items.Strings = (
            #26126#32454
            #27719#24635)
        end
        object RadioButton2: TRadioButton
          Left = 624
          Top = 8
          Width = 137
          Height = 30
          Caption = #19987#26588#36153#29992#21512#35745
          Font.Charset = ANSI_CHARSET
          Font.Color = clBlue
          Font.Height = -16
          Font.Name = #23435#20307
          Font.Style = [fsBold]
          ParentFont = False
          TabOrder = 8
          OnClick = RadioButton2Click
        end
        object Edit1: TEdit
          Left = 624
          Top = 48
          Width = 121
          Height = 20
          ImeName = #20013#25991' ('#31616#20307') - '#32654#24335#38190#30424
          TabOrder = 9
          Text = 'Edit1'
          Visible = False
        end
      end
      object DBGridEh2: TDBGridEh
        Left = 0
        Top = 0
        Width = 850
        Height = 453
        Align = alClient
        DataSource = ds_dymx
        ShowSerialNo = False
        Flat = False
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -16
        Font.Name = #23435#20307
        Font.Style = []
        FooterColor = clWindow
        FooterFont.Charset = ANSI_CHARSET
        FooterFont.Color = clWindowText
        FooterFont.Height = -12
        FooterFont.Name = #23435#20307
        FooterFont.Style = []
        FooterRowCount = 1
        ImeName = #20013#25991' ('#31616#20307') - '#32654#24335#38190#30424
        OptionsEh = [dghFixed3D, dghHighlightFocus, dghClearSelection, dghAutoSortMarking, dghDialogFind]
        ParentFont = False
        PopupMenu = PopupMenu1
        SumList.Active = True
        TabOrder = 1
        TitleFont.Charset = ANSI_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -16
        TitleFont.Name = #23435#20307
        TitleFont.Style = []
        Columns = <
          item
            EditButtons = <>
            FieldName = 'DYRQ'
            Footers = <>
            Title.Caption = #25171#21360#26085#26399
            Width = 94
          end
          item
            EditButtons = <>
            FieldName = 'G_CODE'
            Footers = <>
            Title.Caption = #21512#21516#21495
            Title.TitleButton = True
            Width = 87
          end
          item
            EditButtons = <>
            FieldName = 'G_NAME'
            Footers = <>
            Title.Caption = #23703#21517
            Width = 115
          end
          item
            EditButtons = <>
            FieldName = 'STYLE'
            Footers = <>
            Title.Caption = #20215#31614#31867#22411
            Width = 122
          end
          item
            EditButtons = <>
            FieldName = 'SL'
            Footers = <>
            Title.Caption = #25968#37327
            Width = 69
          end
          item
            EditButtons = <>
            FieldName = 'DJ'
            Footer.Alignment = taRightJustify
            Footer.Font.Charset = ANSI_CHARSET
            Footer.Font.Color = clWindowText
            Footer.Font.Height = -14
            Footer.Font.Name = #23435#20307
            Footer.Font.Style = [fsBold]
            Footer.Value = #24635#35745':'
            Footer.ValueType = fvtStaticText
            Footers = <>
            Title.Caption = #21333#20215
            Width = 87
          end
          item
            DisplayFormat = '0.00'
            EditButtons = <>
            FieldName = 'DJHJ'
            Footer.Alignment = taRightJustify
            Footer.DisplayFormat = '0.00'
            Footer.FieldName = 'DJHJ'
            Footer.Font.Charset = ANSI_CHARSET
            Footer.Font.Color = clWindowText
            Footer.Font.Height = -14
            Footer.Font.Name = #23435#20307
            Footer.Font.Style = [fsBold]
            Footer.ValueType = fvtSum
            Footers = <>
            Title.Caption = #21512#35745
            Width = 140
          end>
      end
    end
    object TabSheet4: TTabSheet
      Caption = #22791#27880
      ImageIndex = 3
      object DBGridEh3: TDBGridEh
        Left = 0
        Top = 0
        Width = 850
        Height = 537
        Align = alClient
        DataSource = ds_bz
        ShowSerialNo = False
        Flat = False
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -14
        Font.Name = #23435#20307
        Font.Style = []
        FooterColor = clWindow
        FooterFont.Charset = ANSI_CHARSET
        FooterFont.Color = clWindowText
        FooterFont.Height = -12
        FooterFont.Name = #23435#20307
        FooterFont.Style = []
        ImeName = #20013#25991' ('#31616#20307') - '#32654#24335#38190#30424
        ParentFont = False
        TabOrder = 0
        TitleFont.Charset = ANSI_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -12
        TitleFont.Name = #23435#20307
        TitleFont.Style = []
        Columns = <
          item
            EditButtons = <>
            FieldName = 'ID'
            Footers = <>
            Title.Caption = #26085#26399
          end
          item
            EditButtons = <>
            FieldName = 'BZ'
            Footers = <>
            Title.Caption = #22791#27880
          end>
      end
    end
  end
  object IBDatabase1: TIBDatabase
    Connected = True
    DatabaseName = '192.168.40.93:D:\My_Documents\pbvm90.dll'
    Params.Strings = (
      'user_name=sysdba'
      'password=masterkey')
    LoginPrompt = False
    Left = 540
  end
  object QRY_DYMX: TIBQuery
    Database = IBDatabase1
    Transaction = IBTransaction1
    SQL.Strings = (
      'select * from JQDYMX')
    Left = 636
    Top = 8
  end
  object DS1: TDataSource
    DataSet = IBTable1
    Left = 388
    Top = 8
  end
  object IBTransaction1: TIBTransaction
    Active = True
    DefaultDatabase = IBDatabase1
    Params.Strings = (
      'read_committed'
      'rec_version'
      'nowait')
    Left = 292
  end
  object IBQuery1: TIBQuery
    Database = IBDatabase1
    Transaction = IBTransaction1
    Left = 508
  end
  object ibqry_insert: TIBQuery
    Database = IBDatabase1
    Transaction = IBTransaction1
    Left = 572
  end
  object IBTable1: TIBTable
    Database = IBDatabase1
    Transaction = IBTransaction1
    BufferChunks = 10000
    Filtered = True
    StoreDefs = True
    TableName = 'JQDYMX'
    Left = 348
    Top = 8
  end
  object ds_dymx: TDataSource
    DataSet = QRY_DYMX
    Left = 668
    Top = 8
  end
  object Insert_gz: TIBQuery
    Database = IBDatabase1
    Transaction = IBTransaction1
    Left = 716
    Top = 8
  end
  object IBTable2: TIBTable
    Database = IBDatabase1
    Transaction = IBTransaction1
    FieldDefs = <
      item
        Name = 'LC_CODE'
        DataType = ftInteger
      end
      item
        Name = 'LC_NAME'
        Attributes = [faRequired]
        DataType = ftString
        Size = 10
      end
      item
        Name = 'G_CODE'
        DataType = ftInteger
      end
      item
        Name = 'G_NAME'
        Attributes = [faRequired]
        DataType = ftString
        Size = 100
      end
      item
        Name = 'G_PYM'
        DataType = ftString
        Size = 8
      end
      item
        Name = 'G_ID'
        DataType = ftInteger
      end>
    Filtered = True
    IndexDefs = <
      item
        Name = 'PK_GZMX'
        Fields = 'G_NAME'
        Options = [ixUnique]
      end>
    IndexFieldNames = 'G_PYM'
    StoreDefs = True
    TableName = 'GZMX'
    Left = 652
    Top = 432
  end
  object DataSource1: TDataSource
    DataSet = IBTable2
    OnDataChange = DataSource1DataChange
    Left = 708
    Top = 432
  end
  object PopupMenu1: TPopupMenu
    Left = 368
    Top = 144
    object Excel1: TMenuItem
      Caption = #23548#20986#21040'Excel'
      Enabled = False
      OnClick = Excel1Click
    end
    object N1: TMenuItem
      Caption = #25171#21360
      Enabled = False
      OnClick = N1Click
    end
    object N2: TMenuItem
      Caption = #25171#21360#19987#26588#36153#29992#27719#24635
      Enabled = False
      OnClick = N2Click
    end
  end
  object SaveDialog1: TSaveDialog
    DefaultExt = '*.xls'
    Filter = 'Excel|*.xls'
    Left = 428
    Top = 144
  end
  object TBL_JQLX: TIBTable
    Database = IBDatabase1
    Transaction = IBTransaction1
    Active = True
    FieldDefs = <
      item
        Name = 'JQLX_NAME'
        Attributes = [faRequired]
        DataType = ftString
        Size = 50
      end
      item
        Name = 'JQDJ'
        DataType = ftBCD
        Precision = 9
        Size = 2
      end>
    StoreDefs = True
    TableName = 'JQLX'
    Left = 140
    Top = 63
    object TBL_JQLXJQLX_NAME: TIBStringField
      FieldName = 'JQLX_NAME'
      Required = True
      Size = 50
    end
    object TBL_JQLXJQDJ: TIBBCDField
      FieldName = 'JQDJ'
      DisplayFormat = #65509'0.00'
      Precision = 9
      Size = 2
    end
  end
  object DS_JQLX: TDataSource
    DataSet = TBL_JQLX
    Left = 228
    Top = 63
  end
  object frxReport1: TfrxReport
    Version = '3.15'
    DotMatrixReport = False
    IniFile = '\Software\Fast Reports'
    PreviewOptions.Buttons = [pbPrint, pbExport]
    PreviewOptions.Zoom = 1.000000000000000000
    PrintOptions.Printer = #39044#35774
    ReportOptions.CreateDate = 39977.774482592600000000
    ReportOptions.LastChange = 40632.733684895800000000
    ScriptLanguage = 'PascalScript'
    ScriptText.Strings = (
      'begin'
      ''
      'end.')
    Left = 256
    Top = 272
    Datasets = <
      item
        DataSet = frxDBDataset1
        DataSetName = 'frxDBDataset1'
      end>
    Variables = <>
    Style = <>
    object Page1: TfrxReportPage
      PaperWidth = 243.000000000000000000
      PaperHeight = 279.000000000000000000
      PaperSize = 256
      LeftMargin = 10.000000000000000000
      RightMargin = 20.000000000000000000
      TopMargin = 10.000000000000000000
      BottomMargin = 10.000000000000000000
      object MasterData1: TfrxMasterData
        Font.Charset = ANSI_CHARSET
        Font.Color = clBlack
        Font.Height = -19
        Font.Name = #23435#20307
        Font.Style = []
        Height = 22.677165350000000000
        ParentFont = False
        Top = 158.740260000000000000
        Width = 805.039890000000000000
        DataSet = frxDBDataset1
        DataSetName = 'frxDBDataset1'
        RowCount = 0
        object Memo6: TfrxMemoView
          Left = 207.976377950000000000
          Width = 375.976377950000000000
          Height = 22.677165350000000000
          Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
          Memo.Strings = (
            #23703#21517)
          VAlign = vaBottom
        end
        object Memo9: TfrxMemoView
          Left = 37.795275590000000000
          Width = 170.078740157480000000
          Height = 22.677165350000000000
          DataSet = frxDBDataset1
          DataSetName = 'frxDBDataset1'
          Font.Charset = ANSI_CHARSET
          Font.Color = clBlack
          Font.Height = -19
          Font.Name = #23435#20307
          Font.Style = []
          Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
          Memo.Strings = (
            #21512#21516#21495)
          ParentFont = False
          VAlign = vaBottom
        end
        object Memo10: TfrxMemoView
          Left = 584.456775910000000000
          Width = 120.944881890000000000
          Height = 22.677165350000000000
          Font.Charset = ANSI_CHARSET
          Font.Color = clBlack
          Font.Height = -19
          Font.Name = #23435#20307
          Font.Style = []
          Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
          Memo.Strings = (
            #21512#35745)
          ParentFont = False
          VAlign = vaBottom
        end
      end
      object DetailData1: TfrxDetailData
        Font.Charset = ANSI_CHARSET
        Font.Color = clBlack
        Font.Height = -19
        Font.Name = #23435#20307
        Font.Style = []
        Height = 22.677165350000000000
        ParentFont = False
        Top = 204.094620000000000000
        Width = 805.039890000000000000
        DataSet = frxDBDataset1
        DataSetName = 'frxDBDataset1'
        RowCount = 0
        object Memo4: TfrxMemoView
          Left = 37.795275590000000000
          Width = 170.078740157480000000
          Height = 22.677165350000000000
          DataField = 'G_CODE'
          DataSet = frxDBDataset1
          DataSetName = 'frxDBDataset1'
          DisplayFormat.DecimalSeparator = '.'
          DisplayFormat.FormatStr = '%2.2m'
          Font.Charset = ANSI_CHARSET
          Font.Color = clBlack
          Font.Height = -19
          Font.Name = #23435#20307
          Font.Style = []
          Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
          Memo.Strings = (
            '[frxDBDataset1."G_CODE"]')
          ParentFont = False
          VAlign = vaBottom
        end
        object Memo5: TfrxMemoView
          Left = 584.314960630000000000
          Width = 120.944881890000000000
          Height = 22.677165350000000000
          DataSet = frxDBDataset1
          DataSetName = 'frxDBDataset1'
          DisplayFormat.DecimalSeparator = '.'
          DisplayFormat.FormatStr = '%2.2m'
          DisplayFormat.Kind = fkNumeric
          Font.Charset = ANSI_CHARSET
          Font.Color = clBlack
          Font.Height = -19
          Font.Name = #23435#20307
          Font.Style = []
          Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
          Memo.Strings = (
            '[frxDBDataset1."DJHJ"]')
          ParentFont = False
          VAlign = vaBottom
        end
        object Memo1: TfrxMemoView
          Left = 207.976377950000000000
          Width = 375.976377950000000000
          Height = 22.677165350000000000
          DataField = 'G_NAME'
          DataSet = frxDBDataset1
          DataSetName = 'frxDBDataset1'
          Font.Charset = ANSI_CHARSET
          Font.Color = clBlack
          Font.Height = -19
          Font.Name = #23435#20307
          Font.Style = []
          Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
          Memo.Strings = (
            '[frxDBDataset1."G_NAME"]')
          ParentFont = False
          WordWrap = False
          VAlign = vaBottom
        end
      end
      object PageHeader1: TfrxPageHeader
        Height = 80.692913380000000000
        Top = 18.897650000000000000
        Width = 805.039890000000000000
        object Memo11: TfrxMemoView
          Left = 175.362400000000000000
          Top = 34.015748030000000000
          Width = 348.488250000000000000
          Height = 22.677165350000000000
          AutoWidth = True
          Font.Charset = GB2312_CHARSET
          Font.Color = clBlack
          Font.Height = -19
          Font.Name = #40657#20307
          Font.Style = [fsBold]
          HAlign = haCenter
          Memo.Strings = (
            '2009-09-26 '#33267' 2009-12-25')
          ParentFont = False
        end
        object Memo12: TfrxMemoView
          Left = 56.897637800000000000
          Top = 58.015748030000000000
          Width = 118.488250000000000000
          Height = 22.677165354330700000
          Font.Charset = GB2312_CHARSET
          Font.Color = clBlack
          Font.Height = -19
          Font.Name = #40657#20307
          Font.Style = [fsBold]
          Memo.Strings = (
            #19968#27004#21830#22330)
          ParentFont = False
          VAlign = vaBottom
        end
        object Memo2: TfrxMemoView
          Left = 272.862400000000000000
          Width = 153.488250000000000000
          Height = 26.456692910000000000
          Font.Charset = GB2312_CHARSET
          Font.Color = clBlack
          Font.Height = -21
          Font.Name = #40657#20307
          Font.Style = [fsBold]
          Memo.Strings = (
            #20215#26684#29260#25171#21360#32479#35745)
          ParentFont = False
        end
      end
      object ColumnFooter1: TfrxColumnFooter
        Height = 22.677180000000000000
        Top = 287.244280000000000000
        Width = 805.039890000000000000
        object Memo3: TfrxMemoView
          Left = 584.314960630000000000
          Width = 120.944881890000000000
          Height = 22.677180000000000000
          DisplayFormat.DecimalSeparator = '.'
          DisplayFormat.FormatStr = '%2.2m'
          DisplayFormat.Kind = fkNumeric
          Font.Charset = ANSI_CHARSET
          Font.Color = clBlack
          Font.Height = -19
          Font.Name = #23435#20307
          Font.Style = [fsBold]
          Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
          Memo.Strings = (
            '[SUM(<frxDBDataset1."DJHJ">,DetailData1)]')
          ParentFont = False
        end
        object Memo7: TfrxMemoView
          Left = 37.795300000000000000
          Width = 546.055227950000000000
          Height = 22.677165350000000000
          DataSet = frxDBDataset1
          DataSetName = 'frxDBDataset1'
          Font.Charset = ANSI_CHARSET
          Font.Color = clBlack
          Font.Height = -19
          Font.Name = #23435#20307
          Font.Style = [fsBold]
          Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
          Memo.Strings = (
            #39029#21512#35745#65306)
          ParentFont = False
          WordWrap = False
          VAlign = vaBottom
        end
      end
    end
  end
  object frxDBDataset1: TfrxDBDataset
    UserName = 'frxDBDataset1'
    CloseDataSource = False
    DataSet = QRY_DYMX
    Left = 220
    Top = 271
  end
  object frxDesigner1: TfrxDesigner
    Restrictions = []
    Left = 292
    Top = 271
  end
  object RzTrayIcon1: TRzTrayIcon
    Enabled = False
    Left = 356
    Top = 279
  end
  object ibtbl_bz: TIBTable
    Database = IBDatabase1
    Transaction = IBTransaction2
    FieldDefs = <
      item
        Name = 'ID'
        Attributes = [faRequired]
        DataType = ftDateTime
      end
      item
        Name = 'BZ'
        DataType = ftString
        Size = 600
      end>
    StoreDefs = True
    TableName = 'MEMO'
    Left = 508
    Top = 343
  end
  object ds_bz: TDataSource
    DataSet = ibtbl_bz
    Left = 548
    Top = 343
  end
  object IBTransaction2: TIBTransaction
    DefaultDatabase = IBDatabase1
    Params.Strings = (
      'read_committed'
      'rec_version'
      'nowait')
    Left = 500
    Top = 391
  end
  object IBQry_Update_gzxx: TIBQuery
    Database = IBDatabase1
    Transaction = IBTransaction3
    Left = 316
    Top = 353
  end
  object IBTransaction3: TIBTransaction
    DefaultDatabase = IBDatabase1
    Params.Strings = (
      'read_committed'
      'rec_version'
      'nowait')
    Left = 356
    Top = 353
  end
  object frxXLSExport1: TfrxXLSExport
    UseFileCache = True
    ShowProgress = True
    AsText = False
    Background = True
    FastExport = True
    PageBreaks = True
    Left = 212
    Top = 183
  end
end
